home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue67 / Threads / IntegerList.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-01-05  |  1.3 KB  |  60 lines
  1. unit IntegerList;
  2.  
  3. interface
  4.  
  5. uses SysUtils,Classes,syncobjs,Windows,Messages;
  6.  
  7. type
  8.  TIntegerList=class(tlist)
  9.   private
  10.    procedure putint(index:integer;theint:integer);
  11.    function getint(index:integer):integer;
  12.   public
  13.    property Items[Index: Integer]: integer read Getint write Putint; default;
  14.    function add(aitem:integer):integer;
  15.    function Delete(Index: integer): Integer;
  16.    function IndexOf(Item: integer): Integer;
  17.    procedure Insert(Index: Integer; Item: integer);
  18.    function Remove(Item:integer): Integer;
  19.   end;
  20.  
  21. implementation
  22.  
  23. procedure TIntegerList.putint(index:integer;theint:integer);
  24. begin
  25.  inherited put(index,pointer(theint));
  26. end;
  27.  
  28. function TIntegerList.getint(index:integer):integer;
  29. begin
  30.  result:=integer(inherited items[index]);
  31. end;
  32.  
  33. function TIntegerList.add(aitem:integer):integer;
  34. begin
  35.  result:=inherited add(pointer(aitem));
  36. end;
  37.  
  38. function TIntegerList.Delete(Index: integer): Integer;
  39. begin
  40.  result:=inherited remove(pointer(Index));
  41. end;
  42.  
  43. function TIntegerList.IndexOf(Item: integer): Integer;
  44. begin
  45.  result:=inherited indexof(pointer(item));
  46. end;
  47.  
  48. procedure TIntegerList.Insert(Index: Integer; Item: integer);
  49. begin
  50.  inherited insert(index,pointer(item));
  51. end;
  52.  
  53.  
  54. function TIntegerList.Remove(Item: integer): Integer;
  55. begin
  56.  Result:=inherited Remove(Pointer(Item));
  57. end;
  58.  
  59. end.
  60.